home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 272
- Top = 182
- Width = 668
- Height = 338
- Caption = 'Evaluator Tester'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object LBL_Value: TLabel
- Left = 136
- Top = 40
- Width = 193
- Height = 13
- AutoSize = False
- end
- object Label3: TLabel
- Left = 136
- Top = 16
- Width = 193
- Height = 13
- Alignment = taCenter
- AutoSize = False
- Caption = 'Expression'
- end
- object EDT_Expression: TEdit
- Left = 136
- Top = 56
- Width = 193
- Height = 21
- TabOrder = 0
- end
- object TreeView: TTreeView
- Left = 336
- Top = 0
- Width = 321
- Height = 305
- ShowButtons = False
- ReadOnly = True
- Indent = 19
- ParentColor = False
- TabOrder = 2
- end
- object BTN_Evaluate: TButton
- Left = 24
- Top = 32
- Width = 105
- Height = 25
- Caption = 'Evaluate'
- Enabled = False
- TabOrder = 3
- OnClick = BTN_EvaluateClick
- end
- object BTN_MakeTree: TButton
- Left = 24
- Top = 56
- Width = 105
- Height = 25
- Caption = 'Make Tree'
- TabOrder = 1
- OnClick = BTN_MakeTreeClick
- end
- object Notebook: TTabbedNotebook
- Left = 0
- Top = 88
- Width = 329
- Height = 217
- TabFont.Color = clBtnText
- TabFont.Height = -11
- TabFont.Name = 'MS Sans Serif'
- TabFont.Style = []
- TabOrder = 4
- object TTabPage
- Left = 4
- Top = 24
- Caption = 'Tokens'
- object MEMO_Tokens: TMemo
- Left = 8
- Top = 4
- Width = 305
- Height = 181
- ReadOnly = True
- ScrollBars = ssVertical
- TabOrder = 0
- end
- end
- object TTabPage
- Left = 4
- Top = 24
- Caption = 'Variables'
- object Label1: TLabel
- Left = 240
- Top = 8
- Width = 31
- Height = 13
- Caption = 'Name:'
- end
- object Label2: TLabel
- Left = 240
- Top = 48
- Width = 30
- Height = 13
- Caption = 'Value:'
- end
- object LB_Vars: TListBox
- Left = 8
- Top = 8
- Width = 225
- Height = 177
- Columns = 1
- ExtendedSelect = False
- ItemHeight = 13
- TabOrder = 0
- end
- object EDT_VarName: TEdit
- Left = 240
- Top = 24
- Width = 73
- Height = 21
- AutoSize = False
- TabOrder = 1
- end
- object EDT_VarData: TEdit
- Left = 240
- Top = 64
- Width = 73
- Height = 21
- AutoSize = False
- TabOrder = 2
- Text = '0'
- end
- object BTN_Set: TButton
- Left = 240
- Top = 96
- Width = 75
- Height = 25
- Caption = 'SET'
- TabOrder = 3
- OnClick = BTN_SetClick
- end
- object BTN_Delete: TButton
- Left = 240
- Top = 128
- Width = 75
- Height = 25
- Caption = 'DELETE'
- TabOrder = 4
- OnClick = BTN_DeleteClick
- end
- object BTN_Clear: TButton
- Left = 240
- Top = 160
- Width = 75
- Height = 25
- Caption = 'CLEAR'
- TabOrder = 5
- OnClick = BTN_ClearClick
- end
- end
- end
- end
-